home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / connec1r / form7.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-14  |  1.8 KB  |  60 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Form7 
  4.    Caption         =   "IP Address"
  5.    ClientHeight    =   1095
  6.    ClientLeft      =   4365
  7.    ClientTop       =   3945
  8.    ClientWidth     =   3210
  9.    LinkTopic       =   "Form7"
  10.    ScaleHeight     =   1095
  11.    ScaleWidth      =   3210
  12.    Begin MSWinsockLib.Winsock Winsock1 
  13.       Left            =   240
  14.       Top             =   720
  15.       _ExtentX        =   741
  16.       _ExtentY        =   741
  17.       _Version        =   393216
  18.    End
  19.    Begin VB.TextBox Text1 
  20.       Height          =   375
  21.       Left            =   1440
  22.       TabIndex        =   2
  23.       Top             =   600
  24.       Width           =   1695
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "Get IP Address"
  28.       Height          =   255
  29.       Left            =   120
  30.       TabIndex        =   0
  31.       Top             =   360
  32.       Width           =   1215
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   "IP Address"
  36.       BeginProperty Font 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   13.5
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       ForeColor       =   &H000000FF&
  46.       Height          =   375
  47.       Left            =   1560
  48.       TabIndex        =   1
  49.       Top             =   120
  50.       Width           =   1455
  51.    End
  52. Attribute VB_Name = "Form7"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Private Sub Command1_Click()
  58.     Text1 = GetIPAddress()
  59. End Sub
  60.